Voorbeeld met het besturingselement ScrollBar en de gebeurtenis Scroll

In het volgende voorbeeld wordt de opzichzelfstaande ScrollBar getoond en worden de wijzigingen in de waarde van de schuifbalk doorgegeven wanneer de gebruiker het schuifblokje verplaatst. De gebruiker kan het schuifblokje verplaatsen door op een van de pijlen aan de uiteinden van het besturingselement te klikken, door te klikken in het gebied tussen het schuifblokje en een van de pijlen of door het schuifblokje te slepen. Als de gebruiker het schuifblokje sleept, geeft de gebeurtenis Scroll een bericht weer dat aangeeft dat de gebruiker heeft geschoven om een nieuwe waarde te verkrijgen.

Als u dit voorbeeld wilt gebruiken, kopieert u deze voorbeeldcode naar de declaratiesectie van een formulier. Zorg ervoor dat het formulier de volgende besturingselementen bevat:

• Een ScrollBar met de naam ScrollBar1.
  
  
• Twee besturingselementen Label met de namen Label1 en Label2. Label1 bevat de informatie over de schaal voor de gebruiker. Label2 geeft de deltawaarde door.

Dim ScrollSaved As Integer   
'Previous ScrollBar setting

Private Sub UserForm_Initialize()
    ScrollBar1.Min = -225
    ScrollBar1.Max = 289
    ScrollBar1.Value = 0

    Label1.Caption = "-225  -----Widgets-----   289"
    Label1.AutoSize = True
    
    Label2.Caption = ""
End Sub

Private Sub ScrollBar1_Change()
    Label2.Caption = " Widget Changes " _
        & (ScrollSaved - ScrollBar1.Value)
End Sub

Private Sub ScrollBar1_Exit(ByVal Cancel as MSForms.ReturnBoolean)
    Label2.Caption = " Widget Changes " _
        & (ScrollSaved - ScrollBar1.Value)
    ScrollSaved = ScrollBar1.Value
End Sub

Private Sub ScrollBar1_Scroll()
    Label2.Caption = (ScrollSaved û ScrollBar1 _
        .Value) & " Widget Changes by Scrolling"
End Sub